home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / MCSECURE.ZIP / _REGKEY.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-25  |  5.2 KB  |  160 lines
  1. VERSION 4.00
  2. Begin VB.Form frmRegistrationKey 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Registration Key"
  5.    ClientHeight    =   4605
  6.    ClientLeft      =   390
  7.    ClientTop       =   465
  8.    ClientWidth     =   6675
  9.    Height          =   5010
  10.    Left            =   330
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4605
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   120
  18.    Width           =   6795
  19.    Begin VB.TextBox Text2 
  20.       Height          =   285
  21.       Left            =   1890
  22.       MaxLength       =   9
  23.       TabIndex        =   5
  24.       Top             =   3870
  25.       Width           =   1455
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   285
  29.       Left            =   1890
  30.       TabIndex        =   3
  31.       Top             =   3510
  32.       Width           =   4695
  33.    End
  34.    Begin VB.ListBox List1 
  35.       Height          =   2955
  36.       Left            =   90
  37.       TabIndex        =   1
  38.       Top             =   360
  39.       Width           =   6495
  40.    End
  41.    Begin VB.Label Label5 
  42.       Caption         =   "Enter a &key"
  43.       Height          =   195
  44.       Left            =   90
  45.       TabIndex        =   4
  46.       Top             =   3900
  47.       Width           =   1725
  48.    End
  49.    Begin VB.Label Label3 
  50.       Caption         =   "Hash coding is"
  51.       Height          =   195
  52.       Left            =   90
  53.       TabIndex        =   6
  54.       Top             =   4260
  55.       Width           =   1725
  56.    End
  57.    Begin VB.Label Label4 
  58.       Appearance      =   0  'Flat
  59.       BackColor       =   &H80000005&
  60.       BorderStyle     =   1  'Fixed Single
  61.       ForeColor       =   &H80000008&
  62.       Height          =   285
  63.       Left            =   1890
  64.       TabIndex        =   7
  65.       Top             =   4230
  66.       Width           =   4695
  67.    End
  68.    Begin VB.Label Label2 
  69.       Caption         =   "Enter a &string (10 chars)"
  70.       Height          =   195
  71.       Left            =   90
  72.       TabIndex        =   2
  73.       Top             =   3540
  74.       Width           =   1725
  75.    End
  76.    Begin VB.Line Line1 
  77.       BorderColor     =   &H00FFFFFF&
  78.       BorderStyle     =   6  'Inside Solid
  79.       BorderWidth     =   2
  80.       X1              =   0
  81.       X2              =   6660
  82.       Y1              =   3420
  83.       Y2              =   3420
  84.    End
  85.    Begin VB.Label Label1 
  86.       Caption         =   "Registration Key Samples"
  87.       Height          =   195
  88.       Left            =   90
  89.       TabIndex        =   0
  90.       Top             =   90
  91.       Width           =   6495
  92.    End
  93. Attribute VB_Name = "frmRegistrationKey"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Option Explicit
  97. Private Sub Form_Load()
  98.    Dim i          As Integer
  99.    Dim Tmp1       As String
  100.    Dim Tmp2       As String
  101.    Dim Tmp3       As String
  102.    Dim Data       As String
  103.    Dim Value      As Long
  104.    Tmp1 = "Key of '"
  105.    Tmp2 = "' with '"
  106.    Tmp3 = "' is '"
  107.    List1.Clear
  108.    Data = "1234567890"
  109.    Value = 1234567
  110.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  111.    Data = "12345678901"
  112.    Value = 123456
  113.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  114.    Data = "123456789012"
  115.    Value = 12345
  116.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  117.    Data = "1234567890123"
  118.    Value = 1234
  119.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  120.    Data = "12345678901234"
  121.    Value = 123
  122.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  123.    Data = "123456789012345"
  124.    Value = 12
  125.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  126.    Data = "1234567890123455"
  127.    Value = 1
  128.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  129.    List1.AddItem ""
  130.    Data = "ABCDEFGHIJKLMNOP"
  131.    Value = 1
  132.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  133.    Data = "ABCDEFGHIJKLMNO"
  134.    Value = 12
  135.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  136.    Data = "ABCDEFGHIJKLMN"
  137.    Value = 123
  138.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  139.    Data = "ABCDEFGHIJKLM"
  140.    Value = 1234
  141.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  142.    Data = "ABCDEFGHIJKL"
  143.    Value = 12345
  144.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  145.    Data = "ABCDEFGHIJK"
  146.    Value = 123456
  147.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  148.    Data = "ABCDEFGHIJ"
  149.    Value = 1234567
  150.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  151.    Text1.Text = "mc security"
  152.    Text2.Text = "1234567"
  153. End Sub
  154. Private Sub Text1_Change()
  155.    Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
  156. End Sub
  157. Private Sub Text2_Change()
  158.    Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
  159. End Sub
  160.